home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 1995 Winter / Mac Expert - Winter 95.iso / Les fichiers / Communications / Divers / Minitel⁄Mac 1.20a ƒ / netlogon.mt < prev    next >
Encoding:
Text File  |  1993-03-11  |  1.3 KB  |  50 lines  |  [TEXT/EDIT]
  1.     { netlogon.mt - perform logon to the infonet network videotex center }
  2.  
  3.     { send CRs until we get a response from the network }
  4.     loop 8
  5.         type CR
  6.         wait 8
  7.             case '#'
  8.                 break
  9.             case '*'
  10.                 branch reqService
  11.         endwait
  12.  
  13.         at_end_do
  14.             message 'PAD not responding with #'
  15.             quit
  16.     endloop
  17.  
  18.     { request X.3 pad service }
  19.     type 'x' CR
  20.     wait 100
  21.         case '*'                        { success }
  22.             { do nothing }
  23.         failure
  24.             message 'PAD not responding with *'
  25.             quit
  26.     endwait
  27.  
  28. reqService:                             { request connection to VCC }
  29.     type '.ms' CR          
  30.  
  31.     { wait for connection }
  32.     wait 600
  33.         case '......'                           { wait till the userid prompt }
  34.             { send userid if present }
  35.             if userid then
  36.                 type userid NEXT            { send network userid/password }
  37.  
  38.                 { send password if present }
  39.                 if password then
  40. pause 12
  41. type password SEND
  42.                 endif
  43.             endif
  44.         case 'CLR', 'ERR'
  45.             message 'Unable to connect to network service'
  46.         failure                         { timeout or line dropped }
  47.             message 'User ID prompt not received'
  48.     endwait
  49.     end
  50.